inherited FModuloCheque: TFModuloCheque
  Left = 690
  Top = 171
  Caption = 'Modulo Cheque'
  ClientHeight = 408
  ClientWidth = 539
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 539
    Height = 408
    object Label1: TLabel [0]
      Left = 368
      Top = 72
      Width = 37
      Height = 13
      Caption = 'Cheque'
    end
    object Label2: TLabel [1]
      Left = 437
      Top = 72
      Width = 63
      Height = 13
      Caption = 'Data Cheque'
    end
    object Label3: TLabel [2]
      Left = 5
      Top = 112
      Width = 24
      Height = 13
      Caption = 'Valor'
    end
    object Label4: TLabel [3]
      Left = 101
      Top = 112
      Width = 41
      Height = 13
      Caption = 'Emitente'
    end
    object Label5: TLabel [4]
      Left = 61
      Top = 72
      Width = 33
      Height = 13
      Caption = 'Origem'
    end
    object Label6: TLabel [5]
      Left = 101
      Top = 72
      Width = 58
      Height = 13
      Caption = 'Cod. Origem'
    end
    object Label7: TLabel [6]
      Left = 6
      Top = 72
      Width = 33
      Height = 13
      Caption = 'Codigo'
    end
    object DBText1: TDBText [7]
      Left = 8
      Top = 88
      Width = 47
      Height = 17
      DataField = 'CHEQ_CODIGO'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel [8]
      Left = 271
      Top = 72
      Width = 31
      Height = 13
      Caption = 'Banco'
    end
    object Label9: TLabel [9]
      Left = 312
      Top = 72
      Width = 39
      Height = 13
      Caption = 'Ag'#234'ncia'
    end
    object Label10: TLabel [10]
      Left = 170
      Top = 72
      Width = 59
      Height = 13
      Caption = 'Data Lancto'
    end
    inherited Panel2: TPanel
      Width = 537
      inherited BtnFechar: TBitBtn
        Left = 457
      end
    end
    inherited Panel3: TPanel
      Top = 337
      Width = 537
      TabOrder = 11
      inherited DBNavigator1: TDBNavigator
        DataSource = dsCadastro
        Hints.Strings = ()
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 36
      Width = 537
      Height = 27
      Align = alTop
      TabOrder = 10
      object Label12: TLabel
        Left = 5
        Top = 4
        Width = 44
        Height = 13
        Caption = 'Origem:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 205
        Top = 4
        Width = 87
        Height = 13
        Caption = 'C'#243'digo Origem:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbOrigem: TLabel
        Left = 51
        Top = 4
        Width = 150
        Height = 13
        AutoSize = False
      end
      object lbcodOrigem: TLabel
        Left = 296
        Top = 4
        Width = 105
        Height = 13
        AutoSize = False
      end
    end
    object edCheque: TDBEdit
      Left = 368
      Top = 88
      Width = 61
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_NUMERO'
      DataSource = dsCadastro
      ParentCtl3D = False
      TabOrder = 6
    end
    object edDataCheque: TDBDateEdit
      Left = 437
      Top = 88
      Width = 94
      Height = 19
      DataField = 'CHEQ_VENCIMENTO'
      DataSource = dsCadastro
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 7
      OnExit = edDataChequeExit
    end
    object edValor: TRxDBCalcEdit
      Left = 5
      Top = 127
      Width = 88
      Height = 19
      DataField = 'CHEQ_VALOR'
      DataSource = dsCadastro
      Ctl3D = False
      DecimalPlaces = 15
      DisplayFormat = '#,##0.00'
      ButtonWidth = 0
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 8
    end
    object edEmitente: TDBEdit
      Left = 101
      Top = 127
      Width = 430
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_EMITENTE'
      DataSource = dsCadastro
      ParentCtl3D = False
      TabOrder = 9
    end
    object edorigem: TDBEdit
      Left = 61
      Top = 88
      Width = 32
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_ORIGEM'
      DataSource = dsCadastro
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
    end
    object edCodOrigem: TDBEdit
      Left = 101
      Top = 88
      Width = 61
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_COD_ORIGEM'
      DataSource = dsCadastro
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      OnExit = edCodOrigemExit
    end
    object edBanco: TDBEdit
      Left = 271
      Top = 88
      Width = 32
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_BANCO'
      DataSource = dsCadastro
      ParentCtl3D = False
      TabOrder = 4
    end
    object edAgencia: TDBEdit
      Left = 312
      Top = 88
      Width = 47
      Height = 19
      Ctl3D = False
      DataField = 'CHEQ_AGENCIA'
      DataSource = dsCadastro
      ParentCtl3D = False
      TabOrder = 5
    end
    object edDataLanc: TDBDateEdit
      Left = 170
      Top = 88
      Width = 92
      Height = 19
      DataField = 'CHEQ_DATALANCAMANTO'
      DataSource = dsCadastro
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      TabOrder = 3
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 160
      Width = 528
      Height = 169
      TabStop = False
      Ctl3D = False
      DataSource = dsGrid
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      TabOrder = 12
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CHEQ_DATALANCAMANTO'
          Title.Caption = 'Lan'#231'amento'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_BANCO'
          Title.Caption = 'Banco'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_AGENCIA'
          Title.Caption = 'Ag'#234'ncia'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_NUMERO'
          Title.Caption = 'Cheque'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_VENCIMENTO'
          Title.Caption = 'Data Cheque'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_VALOR'
          Title.Caption = 'Valor'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_EMITENTE'
          Title.Caption = 'Emitente'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_SITUACAO'
          Title.Caption = 'Situa'#231#227'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQ_DATA_SITUACAO'
          Title.Caption = 'Data'
          Width = 70
          Visible = True
        end>
    end
  end
  object QCadastro: TQuery
    Active = True
    BeforePost = QCadastroBeforePost
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from cheque')
    Left = 88
    Top = 176
    object QCadastroCHEQ_CODIGO: TIntegerField
      FieldName = 'CHEQ_CODIGO'
      Origin = 'BASE.CHEQUEPRE.CHEQ_CODIGO'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.CHEQUEPRE.CODIGOEMPRESA'
    end
    object QCadastroCHEQ_ORIGEM: TStringField
      FieldName = 'CHEQ_ORIGEM'
      Origin = 'BASE.CHEQUEPRE.CHEQ_ORIGEM'
      FixedChar = True
      Size = 2
    end
    object QCadastroCHEQ_COD_ORIGEM: TIntegerField
      FieldName = 'CHEQ_COD_ORIGEM'
      Origin = 'BASE.CHEQUEPRE.CHEQ_COD_ORIGEM'
    end
    object QCadastroCHEQ_DATALANCAMANTO: TDateTimeField
      FieldName = 'CHEQ_DATALANCAMANTO'
      Origin = 'BASE.CHEQUEPRE.CHEQ_DATALANCAMANTO'
    end
    object QCadastroCHEQ_BANCO: TStringField
      FieldName = 'CHEQ_BANCO'
      Origin = 'BASE.CHEQUEPRE.CHEQ_BANCO'
      Size = 3
    end
    object QCadastroCHEQ_AGENCIA: TStringField
      FieldName = 'CHEQ_AGENCIA'
      Origin = 'BASE.CHEQUEPRE.CHEQ_AGENCIA'
      Size = 4
    end
    object QCadastroCHEQ_NUMERO: TStringField
      FieldName = 'CHEQ_NUMERO'
      Origin = 'BASE.CHEQUEPRE.CHEQ_NUMERO'
      Size = 6
    end
    object QCadastroCHEQ_VENCIMENTO: TDateTimeField
      FieldName = 'CHEQ_VENCIMENTO'
      Origin = 'BASE.CHEQUEPRE.CHEQ_VENCIMENTO'
    end
    object QCadastroCHEQ_VALOR: TFloatField
      FieldName = 'CHEQ_VALOR'
      Origin = 'BASE.CHEQUEPRE.CHEQ_VALOR'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.CHEQUEPRE.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.CHEQUEPRE.DATAMODIFICACAO'
    end
    object QCadastroCHEQ_EMITENTE: TStringField
      FieldName = 'CHEQ_EMITENTE'
      Origin = 'BASE.CHEQUE.CHEQ_EMITENTE'
      Size = 40
    end
  end
  object dsCadastro: TDataSource
    DataSet = QCadastro
    Left = 144
    Top = 176
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 112
    Top = 360
  end
  object QGrid: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT '
      '  CHEQUEPRE.CHEQ_DATA_LANCAMANTO,'
      '  CHEQUEPRE.CHEQ_BANCO,'
      '  CHEQUEPRE.CHEQ_AGENCIA,'
      '  CHEQUEPRE.CHEQ_NUMERO,'
      '  CHEQUEPRE.CHEQ_DATA,'
      '  CHEQUEPRE.CHEQ_VALOR,'
      '  CHEQUEPRE.CHEQ_EMITENTE,'
      '  CHEQUEPRE.CHEQ_SITUACAO,'
      '  CHEQUEPRE.CHEQ_DATA_SITUACAO,'
      '  PORTADOR.PORT_DESCRICAO'
      'FROM'
      '  CHEQUEPRE'
      
        '  INNER JOIN PORTADOR ON (CHEQUEPRE.CHEQ_PORTADOR=PORTADOR.PORT_' +
        'CODIGO)')
    Left = 168
    Top = 256
  end
  object dsGrid: TDataSource
    DataSet = QGrid
    Left = 208
    Top = 256
  end
end
